home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / TEMPFILE.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  942b  |  32 lines

  1. ;******************************************************************
  2. ;*                          TEMPFILE.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. .MODEL TPASCAL
  8. LOCALS
  9. NameOfs Equ 48
  10. .DATA
  11.   EXTRN InOutRes:Word
  12. .CODE
  13.   PUBLIC MakeTempFile
  14.   MakeTempFile Proc FAR F:DWord
  15.                PUSH DS
  16.                LDS DX, F
  17.                ADD DX, NameOfs
  18.                MOV AH,5AH
  19.                MOV CX,20H
  20.                INT 21H
  21.                POP DS
  22.                JC @@Error
  23.                MOV BX,AX
  24.                MOV AH,3EH
  25.                INT 21H
  26.                JNC @@Exit
  27. @@Error:       MOV InOutRes,AX
  28. @@Exit:        RET
  29.               ENDP
  30.  END
  31.  
  32.